home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg1
/
g14.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
411b
|
15 lines
100 ' G14 T.WAKAMATSU
110 PI=3.14159!
120 A=70:B=35:V=5:W=3:Z=7:CLS:C=W
130 FOR T=0 TO 2*PI STEP PI/96
140 C=V-C
150 CIRCLE(145*SIN(A*T)+320,145*COS(B*T)+240),90,C
160 NEXT T
170 FOR D=1 TO 2000:NEXT D
180 FOR T=0 TO 2*PI STEP PI/96
190 CIRCLE(145*SIN(A*T)+320,145*COS(B*T)+240),90,Z
200 NEXT T
210 FOR T=0 TO 2*PI STEP PI/96
220 CIRCLE(145*SIN(A*T)+320,145*COS(B*T)+240),90,0
230 NEXT T